; Music of Mystery Megademo Intro () (Greg)
; Ripped by Megachur the 01/07/2008

	write "MYSTERMI.BIN"

music_date_rip	equ &0178
music_adr	equ &6600
first_theme	equ 0	; 0 -> 0
last_theme	equ 0

	read "music_header_v1_0.asm"

;org #6a98
;db "ST-128 Module"

	jp l6609	; init music
	jp l669d	; play music
	jp l6681
;
.init_music
.l6609
;
	xor a
	ld hl,l6bb4
	call l667a
	ld hl,l6be2
	call l667a
	ld hl,l6c10
	call l667a
	ld ix,l6bb0
	ld iy,l6c3a
	ld de,#002e
	ld b,#03
.l6629
	push bc
	inc (ix+#1f)
	ld l,(iy+#00)
	ld h,(iy+#01)
	ld a,(hl)
	ld (ix+#24),a
	inc hl
	ld c,(hl)
	inc hl
	ld b,(hl)
	inc hl
	ld (ix+#22),l
	ld (ix+#23),h
	ld (ix+#20),c
	ld (ix+#21),b
	ld (ix+#25),#ff
	add ix,de
	inc iy
	inc iy
	pop bc
	djnz l6629
	ld hl,l6ac9
	ld (hl),#05
	inc hl
	ld (hl),#40
	inc hl
	ld (hl),#01
	inc hl
	ld (hl),d
	inc hl
	ld (hl),#38
	ld hl,#ffff
	ld (l6ac5),hl
	ld (l6ac7),hl
	ld a,#0c
	ld c,d
	call l6aa5
	ld a,#0d
	ld c,d
	jp l6aa5
.l667a
	ld b,#2a
.l667c
	ld (hl),a
	inc hl
	djnz l667c
	ret
.l6681
	ld a,#07
	ld c,#3f
	call l6aa5
	ld a,#08
	ld c,#00
	call l6aa5
	ld a,#09
	ld c,#00
	call l6aa5
	ld a,#0a
	ld c,#00
	jp l6aa5
;
.play_music
.l669d
;
	ld hl,l6acb
	dec (hl)
	ld ix,l6bb0
	ld bc,l6bbe
	call l673f
	ld ix,l6bde
	ld bc,l6bec
	call l673f
	ld ix,l6c0c
	ld bc,l6c1a
	call l673f
	ld hl,l6ac4
	ld de,l6acb
	ld b,#06
	call l671c
	ld b,#07
	call l671c
	ld b,#0b
	call l671c
	ld b,#0d
	call l671c
	ld de,l6acb
	ld a,(de)
	or a
	ret nz
	inc hl
	ldi
	dec (hl)
	ret nz
	ld (hl),#40
	ld hl,l6bcf
	call l66f5
	ld hl,l6bfd
	call l66f5
	ld hl,l6c2b
.l66f5
	ld (hl),#01
	inc hl
	ld b,h
	ld c,l
	inc hl
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld a,(de)
	cp #80
	jr nz,l670a
	ex de,hl
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld a,(de)
.l670a
	inc de
	ex de,hl
	ld d,b
	ld e,c
	ldi
	ldi
	ex de,hl
	ld (hl),e
	inc hl
	ld (hl),d
	inc hl
	ld (hl),a
	inc hl
	ld (hl),#ff
	ret
.l671c
	inc hl
	inc de
	ld a,(de)
	cp (hl)
	ret z
	ld (hl),a
	ld c,a
	ld a,b
	jp l6aa5
.l6727
	ld a,(hl)
	ld (ix+#1f),a
	inc hl
	ld (ix+#20),l
	ld (ix+#21),h
	ld (ix+#17),d
	ld (ix+#15),d
	ld c,d
	ld a,(ix+#00)
	jp l6aa5
.l673f
	ld a,(l6acb)
	or a
	jp nz,l67f7
	ld (ix+#08),a
	ld (ix+#0a),a
	dec (ix+#1f)
	jp nz,l67f7
	ld d,a
	ld l,(ix+#20)
	ld h,(ix+#21)
	ld a,(hl)
	inc hl
	cp #fe
	jr z,l6727
	or a
	jp z,l67ec
	ld r,a
	and #7f
	cp #10
	jr c,l67c7
	ld e,(hl)
	inc hl
	push hl
	push bc
	sub #10
	add #00
	add (ix+#24)
	ld (ix+#07),a
	ld b,d
	call l693f
	ld (ix+#16),b
	ld (ix+#17),#20
	inc b
	ld (ix+#2c),b
	ld (ix+#2d),b
	dec b
	ld a,e
	pop de
	ld i,a
	and #f0
	cp (ix+#25)
	jr z,l67a0
	ld (ix+#25),a
	ld (ix+#1e),b
	ld (ix+#29),b
.l67a0
	rrca
	ld c,a
	ld hl,l6c40
	add hl,bc
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	bit 6,(hl)
	ldi
	ldi
	ld b,#00
	jr z,l67bf
	ld (ix+#1e),b
.l67bf
	ld a,i
	pop hl
	ld d,b
	and #0f
	jr z,l67e0
.l67c7
	ld b,d
	ex de,hl
	and #0f
	dec a
	add a
	ld c,a
	ld hl,l6ad0
	add hl,bc
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	push hl
	ex de,hl
	ld d,b
	ret
	add b
	add e
	add h
	add l
	add (hl)
	add h
.l67e0
	ld a,d
	or a
	jr nz,l67ee
	ld a,r
	bit 7,a
	ld a,#01
	jr nz,l67ee
.l67ec
	ld a,(hl)
	inc hl
.l67ee
	ld (ix+#1f),a
	ld (ix+#20),l
	ld (ix+#21),h
.l67f7
	ld a,(ix+#17)
	or a
	jr nz,l680d
	ld a,(ix+#15)
	or a
	ret z
	ld (ix+#17),a
	ld a,(ix+#14)
	and #1f
	ld (ix+#16),a
.l680d
	ld d,#00
	ld e,(ix+#16)
	dec (ix+#2c)
	jr nz,l6823
	ld a,(ix+#2d)
	ld (ix+#2c),a
	inc (ix+#16)
	dec (ix+#17)
.l6823
	ld a,(ix+#0d)
	or a
	jr z,l6831
	ld h,a
	ld l,(ix+#0c)
	add hl,de
	ld a,(hl)
	jr l684f
.l6831
	ld a,(ix+#1a)
	or a
	jp z,l6856
	ld c,a
	cp #03
	jr nz,l683e
	xor a
.l683e
	inc a
	ld (ix+#1a),a
	dec c
	ld a,c
	jr z,l684f
	ld a,(ix+#18)
	dec c
	jr z,l684f
	ld a,(ix+#19)
.l684f
	add (ix+#07)
	ld b,d
	call l693f
.l6856
	ld l,(ix+#04)
	ld h,(ix+#05)
	push hl
	ld a,(ix+#08)
	or a
	jr z,l687e
	dec (ix+#1b)
	jr nz,l687e
	ld a,(ix+#08)
	ld (ix+#1b),a
	ld c,(ix+#1c)
	ld b,(ix+#1d)
	add hl,bc
	ld (ix+#04),l
	ld (ix+#05),h
	ex (sp),hl
	jr l68b6
.l687e
	ld a,(ix+#29)
	or a
	jr z,l68b6
	ld b,a
	ld a,(ix+#27)
	dec (ix+#26)
	jr nz,l68ad
	ld c,a
	ld a,(ix+#28)
	ld (ix+#26),a
	ld a,c
	add b
	ld (ix+#27),a
	cp (ix+#2a)
	jr nz,l68a4
	ld (ix+#29),#ff
	jr l68ad
.l68a4
	cp (ix+#2b)
	jr nz,l68ad
	ld (ix+#29),#01
.l68ad
	ld b,d
	or a
	jp p,l68b3
	dec b
.l68b3
	ld c,a
	jr l68c1
.l68b6
	ld h,(ix+#0f)
	ld l,(ix+#0e)
	add hl,de
	add hl,de
	ld c,(hl)
	inc hl
	ld b,(hl)
.l68c1
	pop hl
	bit 7,(ix+#14)
	jr z,l68ca
	ld h,d
	ld l,d
.l68ca
	add hl,bc
	ld c,l
	ld a,(ix+#01)
	call l6aa5
	ld c,h
	ld a,(ix+#02)
	call l6aa5
	ld h,(ix+#11)
	ld l,(ix+#10)
	add hl,de
	ld a,(hl)
	bit 7,a
	jr nz,l691d
	and #0f
	ld b,a
	ld a,(ix+#0a)
	or a
	jr z,l690c
	dec (ix+#09)
	jr nz,l690c
	ld c,a
	ld a,(ix+#0b)
	ld (ix+#09),a
	ld a,(ix+#1e)
	add c
	jp p,l6904
	xor a
	jr l6909
.l6904
	cp #10
	jr nz,l6909
	dec a
.l6909
	ld (ix+#1e),a
.l690c
	ld a,b
	sub (ix+#1e)
	jr nc,l6913
	xor a
.l6913
	or (ix+#06)
	ld c,a
	ld a,(ix+#00)
	call l6aa5
.l691d
	ld l,(ix+#12)
	ld h,(ix+#13)
	add hl,de
	ld c,(hl)
	bit 7,c
	ret nz
	ld b,(ix+#03)
	ld hl,(l6acc)
	ld a,h
	or b
	ld h,a
	ld a,c
	and #1f
	jr z,l693b
	ld l,a
	ld a,b
	cpl
	and h
	ld h,a
.l693b
	ld (l6acc),hl
	ret
.l693f
	ld hl,l6aee
	cp #61
	jr nc,l6949
	add a
	ld c,a
	add hl,bc
.l6949
	ld a,(hl)
	ld (ix+#04),a
	inc hl
	ld a,(hl)
	ld (ix+#05),a
	ret
.l6953
	ld (ix+#0d),d
	ld (ix+#06),d
	ld (ix+#1a),d
	call l6a78
	ld (ix+#1e),a
	jp l67e0
.l6965
	dec b
.l6966
	ld a,(hl)
	inc hl
	ld c,a
	and #0f
	bit 7,b
	jr z,l6971
	neg
.l6971
	ld (ix+#1c),a
	ld (ix+#1d),b
	ld a,c
	rrca
	rrca
	rrca
	rrca
	and #0f
	ld (ix+#08),a
	ld (ix+#1b),a
	jp l67e0
.l6987
	dec b
	jr l698b
.l698a
	inc b
.l698b
	call l6a78
	ld (ix+#0b),a
	ld (ix+#09),a
	ld (ix+#0a),b
	jp l67e0
.l699a
	ld a,(hl)
	inc hl
	ld c,a
	and #0f
	ld (ix+#1e),a
	ld a,c
	and #f0
	rrca
	rrca
	rrca
	jp l6a5d
.l69ab
	ld a,(hl)
	inc hl
	or a
	jr z,l69cd
	ld c,a
	rrca
	rrca
	rrca
	rrca
	and #0f
	ld (ix+#28),a
	ld (ix+#26),a
	ld a,c
	and #07
	ld (ix+#2a),a
	neg
	ld (ix+#2b),a
	ld (ix+#27),a
	ld a,#01
.l69cd
	ld (ix+#29),a
	jp l67e0
.l69d3
	dec hl
	ld a,(hl)
	and #0f
	ld (l6acf),a
	inc hl
	ld a,(hl)
	inc hl
	ld (l6ace),a
	ld (ix+#0d),d
	ld (ix+#1a),d
	ld (ix+#06),#10
	jp l67e0
.l69ed
	ld a,(hl)
	or a
	jr z,l69fe
	call l6a7a
	ld (ix+#2c),a
	ld (ix+#2d),a
	inc hl
	jp l67e0
.l69fe
	ld hl,#0101
	ld (l6aca),hl
	jp l67e0
.l6a07
	call l6a78
	ld (ix+#1e),a
	jp l67e0
.l6a10
	ld a,(hl)
	inc hl
	push hl
	ld e,a
	rrca
	rrca
	rrca
	rrca
	call l6a89
	ld (ix+#0e),c
	ld (ix+#0f),d
	ld a,e
	ld d,#04
	call l6a89
	ld (ix+#12),c
	ld (ix+#13),d
	pop hl
	ld d,b
	jp l67e0
.l6a32
	ld a,(hl)
	inc hl
	ld (l6ac9),a
	jp l67e0
.l6a3a
	ld a,(hl)
	inc hl
	ld c,a
	rrca
	rrca
	rrca
	rrca
	and #0f
	ld (ix+#18),a
	ld a,c
	and #0f
	ld (ix+#19),a
	ld (ix+#06),d
	ld (ix+#0d),d
	ld (ix+#1a),#01
	jp l67e0
.l6a59
	call l6a78
	add a
.l6a5d
	ld b,#00
	ld c,a
	push hl
	ld hl,l6cc0
	add hl,bc
	ld a,(hl)
	ld (ix+#0c),a
	inc hl
	ld a,(hl)
	ld (ix+#0d),a
	pop hl
	ld (ix+#06),b
	ld (ix+#1a),b
	jp l67e0
.l6a78
	ld a,(hl)
	inc hl
.l6a7a
	cp #10
	ret c
	ld c,a
	and #f0
	rrca
	rrca
	rrca
	rrca
	ld d,a
	ld a,c
	and #0f
	ret
.l6a89
	and #0f
	add a
	add a
	add a
	add d
	ld c,a
	ld hl,l6c40
	add hl,bc
	ld c,(hl)
	inc hl
	ld d,(hl)
	ret
	db #53,#54,#2d,#31,#32,#38,#20,#4d
	db #6f,#64,#75,#6c,#65
.l6aa5
	di
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ei
.l6ac4
	ret
.l6acc equ $ + 7
.l6acb equ $ + 6
.l6aca equ $ + 5
.l6ac9 equ $ + 4
.l6ac7 equ $ + 2
.l6ac5
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6acf equ $ + 2
.l6ace equ $ + 1
	db #38,#00,#00
.l6ad0
	dw l6953,l6966,l6965,l698a
	dw l6987,l699a,l69ab,l69d3
	dw l69ed,l69d3,l6a07,l6a10
.l6aee equ $ + 6
	dw l6a32,l6a3a,l6a59,#0000
	dw #0e18,#0d4d,#0c8e,#0bda
	dw #0b2f,#0a8f,#09f7,#0968
	dw #08e1,#0861,#07e9,#0777
	dw #070c,#06a7,#0647,#05ed
	dw #0598,#0547,#04fc,#04b4
	dw #0470,#0431,#03f4,#03bc
	dw #0386,#0353,#0324,#02f6
	dw #02cc,#02a4,#027e,#025a
	dw #0238,#0218,#01fa,#01de
	dw #01c3,#01aa,#0192,#017b
	dw #0166,#0152,#013f,#012d
	dw #011c,#010c,#00fd,#00ef
	dw #00e1,#00d5,#00c9,#00be
	dw #00b3,#00a9,#009f,#0096
	dw #008e,#0086,#007f,#0077
	dw #0071,#006a,#0064,#005f
	dw #0059,#0054,#0050,#004b
	dw #0047,#0043,#003f,#003c
	dw #0038,#0035,#0032,#002f
	dw #002d,#002a,#0028,#0026
	dw #0024,#0022,#0020,#001e
	dw #001c,#001b,#0019,#0018
	dw #0016,#0015,#0014,#0013
	dw #0012,#0011,#0010,#000f
.l6bb4 equ $ + 4
.l6bb0
	db #08,#00,#01,#08,#00,#00,#00,#00
.l6bbe equ $ + 6
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6bcf equ $ + 7
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6bde equ $ + 6
	db #00,#00,#00,#00,#00,#00,#09,#02
.l6be2 equ $ + 2
	db #03,#10,#00,#00,#00,#00,#00,#00
.l6bec equ $ + 4
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6bfd equ $ + 5
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6c0c equ $ + 4
	db #00,#00,#00,#00,#0a,#04,#05,#20
.l6c10
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6c1a equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6c2b equ $ + 3
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00
.l6c40 equ $ + 6
.l6c3a
	dw l6f60,l6fc3,l7026,#25d1
	dw #4aa3,#4aa4,#24d2,l6ce0
	dw l6d20,l6d40,#0040,l6d60
	dw l6da0,l6dc0,#00c0,l6de0
	dw l6e20,l6e40
	db #c0,#00,#d2,#2d,#a3,#4a,#a4,#4a
	db #d2,#24,#d2,#25,#a4,#4a,#a3,#4a
	db #d1,#24,#d1,#25,#a3,#4a,#a4,#4a
	db #d2,#24,#d2,#25,#a4,#4a,#a3,#4a
	db #d1,#24,#60,#6e,#a0,#6e,#c0,#6e
	db #c0,#00,#e0,#6e,#20,#6f,#40,#6d
	db #00,#08,#d1,#25,#12,#94,#a4,#4a
	db #d2,#24,#a4,#4a,#a4,#4a,#a3,#4a
	db #d1,#24,#a3,#4a,#a3,#4a,#a4,#4a
	db #d2,#24,#a4,#4a,#a4,#4a,#a3,#4a
	db #d1,#24,#a3,#4a,#d2,#25,#d2,#25
	db #00,#00,#d2,#25,#d3,#25,#d3,#25
.l6cc0 equ $ + 2
	db #01,#00,#40,#6f,#d2,#25,#d2,#25
	db #d2,#25,#d2,#25,#d3,#25,#d3,#25
	db #d3,#25,#d3,#25,#d2,#25,#d2,#25
	db #d2,#25,#d2,#25,#d3,#25,#d3,#25
.l6ce0 equ $ + 2
	db #d3,#25,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#00,#01,#00,#01,#00
	db #01,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#00,#01,#00,#01,#00
	db #01,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#00,#01,#00,#01,#00
	db #01,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6d20 equ $ + 2
	db #00,#00,#0f,#0f,#0e,#0e,#0d,#0d
	db #0c,#0c,#0b,#0b,#0a,#0a,#09,#09
	db #08,#08,#07,#07,#06,#06,#05,#05
	db #04,#04,#03,#03,#02,#02,#01,#01
.l6d40 equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6d60 equ $ + 2
	db #00,#00,#90,#01,#d0,#01,#10,#02
	db #50,#02,#90,#02,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6da0 equ $ + 2
	db #00,#00,#0e,#0f,#0f,#0f,#0e,#0e
	db #0b,#07,#03,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6dc0 equ $ + 2
	db #00,#00,#0e,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6de0 equ $ + 2
	db #00,#00,#fd,#00,#2f,#01,#61,#01
	db #93,#01,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6e20 equ $ + 2
	db #00,#00,#0f,#0f,#0f,#0f,#0e,#0d
	db #0a,#07,#02,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6e40 equ $ + 2
	db #00,#00,#0c,#00,#00,#00,#02,#08
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#0e,#0d,#0d,#0d,#0d,#0c
	db #0a,#07,#05,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#01,#01,#01,#01,#01
	db #01,#01,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#00,#01,#00,#01,#00
	db #01,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#00,#01,#00,#01,#00
	db #01,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#00,#01,#00,#01,#00
	db #01,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#00,#01,#00,#01,#00
	db #01,#00,#0e,#0e,#0e,#0e,#0e,#0e
	db #0e,#0e,#0e,#0e,#0e,#0e,#0e,#0e
	db #0e,#0e,#0e,#0e,#0e,#0e,#0e,#0e
	db #0e,#0e,#0e,#0e,#0e,#0e,#0e,#0e
	db #0e,#0e,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l6f60 equ $ + 2
	db #00,#00,#00,#89,#70,#00,#89,#70
	db #00,#89,#70,#00,#89,#70,#00,#89
	db #70,#00,#89,#70,#00,#89,#70,#00
	db #89,#70,#00,#89,#70,#00,#89,#70
	db #00,#89,#70,#00,#89,#70,#00,#89
	db #70,#00,#89,#70,#00,#89,#70,#00
	db #89,#70,#00,#89,#70,#00,#89,#70
	db #00,#89,#70,#00,#89,#70,#00,#89
	db #70,#00,#89,#70,#00,#89,#70,#00
	db #89,#70,#00,#0a,#71,#00,#0a,#71
	db #00,#18,#71,#00,#18,#71,#00,#89
	db #70,#00,#89,#70,#00,#89,#70,#00
.l6fc3 equ $ + 5
	db #89,#70,#80,#60,#6f,#00,#99,#71
	db #00,#a6,#71,#00,#c9,#71,#00,#c9
	db #71,#00,#2a,#72,#00,#2a,#72,#00
	db #8f,#72,#00,#f4,#72,#00,#8f,#72
	db #00,#f4,#72,#00,#59,#73,#00,#59
	db #73,#00,#59,#73,#00,#59,#73,#00
	db #c0,#73,#00,#c0,#73,#00,#c9,#71
	db #00,#c9,#71,#00,#59,#73,#00,#59
	db #73,#00,#59,#73,#00,#59,#73,#00
	db #c0,#73,#00,#c0,#73,#00,#27,#74
	db #00,#27,#74,#00,#0a,#71,#00,#0a
	db #71,#00,#c0,#73,#00,#c0,#73,#00
	db #c9,#71,#00,#c9,#71,#80,#c3,#6f
.l7026
	db #00,#33,#74,#00,#3f,#74,#00,#33
	db #74,#00,#33,#74,#00,#49,#74,#00
	db #49,#74,#00,#92,#74,#00,#bd,#74
	db #00,#92,#74,#00,#bd,#74,#00,#e2
	db #74,#00,#fa,#74,#00,#e2,#74,#00
	db #fa,#74,#00,#21,#75,#00,#21,#75
	db #00,#33,#74,#00,#33,#74,#00,#a2
	db #75,#00,#c7,#75,#00,#a2,#75,#00
	db #c7,#75,#00,#21,#75,#00,#21,#75
	db #00,#21,#75,#00,#21,#75,#00,#21
	db #75,#00,#21,#75,#00,#21,#75,#00
	db #21,#75,#00,#33,#74,#00,#33,#74
	db #80,#26,#70,#3b,#18,#14,#02,#2f
	db #18,#14,#02,#3b,#18,#14,#02,#2f
	db #18,#14,#02,#3b,#18,#14,#02,#2f
	db #18,#14,#02,#3b,#18,#14,#02,#2f
	db #18,#14,#02,#37,#18,#19,#02,#2b
	db #18,#19,#02,#37,#18,#19,#02,#2b
	db #18,#19,#02,#37,#18,#19,#02,#2b
	db #18,#19,#02,#37,#18,#19,#02,#2b
	db #18,#19,#02,#3e,#18,#11,#02,#32
	db #18,#11,#02,#3e,#18,#11,#02,#32
	db #18,#11,#02,#3e,#18,#11,#02,#32
	db #18,#11,#02,#3e,#18,#11,#02,#32
	db #18,#11,#02,#39,#18,#17,#02,#2d
	db #18,#17,#02,#39,#18,#17,#02,#2d
	db #18,#17,#02,#39,#18,#17,#02,#2d
	db #18,#17,#02,#39,#18,#17,#02,#2d
	db #18,#17,#02,#ff,#fe,#01,#fe,#01
	db #fe,#01,#fe,#01,#fe,#01,#01,#00
	db #3b,#ff,#bb,#10,#af,#10,#bb,#10
	db #af,#10,#af,#10,#bb,#10,#af,#10
	db #af,#10,#af,#10,#bb,#10,#af,#10
	db #af,#10,#bb,#10,#af,#10,#bb,#10
	db #bb,#10,#b7,#10,#ab,#10,#b7,#10
	db #ab,#10,#ab,#10,#b7,#10,#ab,#10
	db #ab,#10,#ab,#10,#b7,#10,#ab,#10
	db #ab,#10,#b7,#10,#ab,#10,#b7,#10
	db #b7,#10,#be,#10,#b2,#10,#be,#10
	db #b2,#10,#b2,#10,#be,#10,#b2,#10
	db #b2,#10,#b2,#10,#be,#10,#b2,#10
	db #b2,#10,#be,#10,#b2,#10,#be,#10
	db #be,#10,#b9,#10,#ad,#10,#b9,#10
	db #ad,#10,#ad,#10,#b9,#10,#ad,#10
	db #ad,#10,#ad,#10,#b9,#10,#ad,#10
	db #ad,#10,#b9,#10,#ad,#10,#b9,#10
	db #b9,#10,#ff,#0d,#05,#01,#fe,#01
	db #fe,#01,#fe,#01,#01,#00,#3c,#ff
	db #00,#2a,#2f,#80,#04,#2f,#80,#02
	db #2f,#80,#02,#2f,#80,#02,#2f,#30
	db #02,#2f,#80,#02,#2f,#30,#02,#31
	db #20,#02,#af,#30,#af,#30,#af,#30
	db #af,#30,#ff,#2f,#20,#02,#2f,#80
	db #02,#2f,#30,#02,#2f,#80,#02,#2f
	db #20,#02,#2f,#80,#02,#2f,#30,#02
	db #2f,#80,#02,#2f,#20,#02,#2f,#80
	db #02,#2f,#30,#02,#2f,#80,#02,#2f
	db #20,#02,#2f,#80,#02,#2f,#30,#02
	db #2f,#80,#02,#2f,#20,#02,#2f,#80
	db #02,#2f,#30,#02,#2f,#80,#02,#2f
	db #20,#02,#2f,#80,#02,#2f,#30,#02
	db #2f,#80,#02,#2f,#20,#02,#2f,#80
	db #02,#2f,#30,#02,#2f,#80,#02,#2f
	db #20,#02,#2f,#80,#02,#2f,#30,#02
	db #2f,#80,#02,#ff,#2f,#20,#02,#31
	db #80,#02,#2f,#30,#02,#31,#80,#02
	db #2f,#20,#02,#31,#80,#02,#2f,#30
	db #02,#2f,#30,#02,#2f,#20,#02,#31
	db #80,#02,#2f,#30,#02,#31,#80,#02
	db #2f,#20,#02,#31,#80,#02,#2f,#30
	db #02,#2f,#30,#02,#2f,#20,#02,#31
	db #80,#02,#2f,#30,#02,#31,#80,#02
	db #2f,#20,#02,#31,#80,#02,#2f,#30
	db #02,#2f,#30,#02,#2f,#20,#02,#31
	db #80,#02,#2f,#30,#02,#2f,#30,#02
	db #af,#30,#b1,#80,#af,#30,#b1,#80
	db #af,#30,#af,#30,#af,#30,#af,#30
	db #ff,#2f,#20,#02,#2f,#80,#02,#2f
	db #30,#02,#2f,#80,#02,#2f,#20,#02
	db #2f,#80,#02,#2f,#30,#02,#2f,#30
	db #02,#2f,#20,#02,#2f,#80,#02,#2f
	db #30,#02,#2f,#80,#02,#2f,#20,#02
	db #2f,#80,#02,#2f,#30,#02,#2f,#30
	db #02,#2f,#20,#02,#2f,#80,#02,#2f
	db #30,#02,#2f,#80,#02,#2f,#20,#02
	db #2f,#80,#02,#2f,#30,#02,#2f,#30
	db #02,#2f,#20,#02,#2f,#80,#02,#2f
	db #30,#02,#2f,#30,#02,#af,#30,#af
	db #80,#af,#30,#af,#80,#af,#30,#af
	db #30,#af,#30,#af,#30,#ff,#31,#20
	db #02,#31,#80,#02,#31,#30,#02,#31
	db #80,#02,#31,#20,#02,#31,#80,#02
	db #31,#30,#02,#31,#80,#02,#31,#20
	db #02,#31,#80,#02,#31,#30,#02,#31
	db #80,#02,#31,#20,#02,#31,#80,#02
	db #31,#30,#02,#31,#80,#02,#31,#20
	db #02,#31,#80,#02,#31,#30,#02,#31
	db #80,#02,#31,#20,#02,#31,#80,#02
	db #31,#30,#02,#31,#80,#02,#31,#20
	db #02,#31,#80,#02,#31,#30,#02,#31
	db #30,#02,#b1,#30,#b1,#80,#b1,#30
	db #b1,#80,#b1,#30,#b1,#30,#b1,#30
	db #b1,#30,#ff,#31,#20,#02,#31,#80
	db #02,#31,#30,#02,#31,#80,#02,#31
	db #20,#02,#31,#80,#02,#31,#30,#02
	db #31,#80,#02,#31,#20,#02,#31,#80
	db #02,#31,#30,#02,#31,#80,#02,#31
	db #20,#02,#31,#80,#02,#31,#30,#02
	db #31,#80,#02,#31,#20,#02,#31,#80
	db #02,#31,#30,#02,#31,#80,#02,#31
	db #20,#02,#31,#80,#02,#31,#30,#02
	db #31,#80,#02,#31,#20,#02,#31,#80
	db #02,#b1,#30,#b1,#80,#b1,#30,#b1
	db #80,#b1,#30,#b1,#80,#b1,#30,#b1
	db #80,#b1,#30,#b1,#30,#b1,#30,#b1
	db #30,#ff,#31,#20,#02,#33,#80,#02
	db #31,#30,#02,#33,#80,#02,#31,#20
	db #02,#33,#80,#02,#31,#30,#02,#33
	db #80,#02,#31,#20,#02,#33,#80,#02
	db #31,#30,#02,#33,#80,#02,#31,#20
	db #02,#33,#80,#02,#31,#30,#02,#33
	db #80,#02,#31,#20,#02,#33,#80,#02
	db #31,#30,#02,#33,#80,#02,#31,#20
	db #02,#33,#80,#02,#31,#30,#02,#33
	db #80,#02,#31,#20,#02,#33,#80,#02
	db #b1,#30,#b3,#80,#b1,#30,#b3,#80
	db #b1,#30,#b3,#80,#b1,#30,#b3,#80
	db #b1,#30,#b1,#30,#b1,#30,#b1,#30
	db #ff,#fe,#01,#fe,#01,#fe,#01,#fe
	db #02,#01,#00,#3b,#ff,#fe,#01,#fe
	db #01,#fe,#01,#fe,#01,#01,#00,#3c
	db #ff,#fe,#01,#fe,#01,#fe,#01,#01
	db #00,#3d,#ff,#47,#1f,#40,#47,#10
	db #04,#4a,#10,#02,#49,#10,#02,#47
	db #10,#02,#45,#10,#02,#47,#10,#04
	db #47,#10,#04,#4a,#10,#02,#49,#10
	db #02,#47,#10,#02,#45,#10,#02,#4a
	db #10,#04,#4a,#10,#04,#4c,#10,#02
	db #4a,#10,#02,#49,#10,#02,#47,#10
	db #02,#45,#10,#04,#49,#10,#04,#4a
	db #10,#02,#49,#10,#02,#47,#10,#02
	db #45,#10,#02,#ff,#47,#91,#c0,#47
	db #90,#02,#49,#90,#02,#4a,#90,#0e
	db #4c,#90,#02,#4a,#90,#0c,#49,#90
	db #02,#47,#90,#02,#45,#90,#06,#45
	db #90,#02,#49,#90,#02,#45,#90,#02
	db #49,#90,#02,#4a,#90,#02,#ff,#47
	db #90,#0c,#47,#90,#02,#49,#90,#02
	db #4a,#90,#0e,#4c,#90,#02,#4a,#90
	db #0c,#49,#90,#02,#4a,#90,#02,#4c
	db #90,#0a,#4a,#90,#02,#49,#90,#02
	db #4a,#90,#02,#ff,#00,#10,#49,#90
	db #08,#47,#90,#08,#45,#90,#10,#45
	db #90,#02,#47,#90,#04,#49,#90,#04
	db #4a,#90,#06,#ff,#00,#10,#49,#90
	db #08,#47,#90,#06,#45,#90,#02,#4a
	db #90,#02,#45,#90,#10,#ca,#90,#c9
	db #90,#c7,#90,#ca,#90,#c9,#90,#c7
	db #90,#4c,#90,#04,#49,#90,#02,#4a
	db #90,#02,#ff,#ca,#10,#c7,#10,#c9
	db #10,#c7,#10,#c7,#10,#c7,#10,#c9
	db #10,#c7,#10,#ca,#10,#c7,#10,#c9
	db #10,#c7,#10,#c7,#10,#c7,#10,#c9
	db #10,#c7,#10,#ca,#10,#c3,#10,#c9
	db #10,#c3,#10,#c7,#10,#c3,#10,#c9
	db #10,#c3,#10,#ca,#10,#c3,#10,#c9
	db #10,#c3,#10,#c7,#10,#c3,#10,#c9
	db #10,#c3,#10,#ca,#10,#ca,#10,#c9
	db #10,#ca,#10,#c7,#10,#ca,#10,#c9
	db #10,#ca,#10,#ca,#10,#ca,#10,#c9
	db #10,#ca,#10,#c7,#10,#ca,#10,#c9
	db #10,#ca,#10,#cc,#10,#c5,#10,#ca
	db #10,#c5,#10,#c9,#10,#c5,#10,#ca
	db #10,#c5,#10,#cc,#10,#c5,#10,#ca
	db #10,#c5,#10,#c9,#10,#c5,#10,#ca
	db #10,#c5,#10,#ff,#4e,#90,#0c,#4f
	db #90,#02,#4e,#90,#02,#4e,#90,#0e
	db #4c,#90,#02,#51,#90,#0c,#53,#90
	db #02,#51,#90,#02,#4c,#90,#0a,#4a
	db #90,#02,#49,#90,#02,#4a,#90,#02
	db #ff,#47,#90,#0c,#4e,#90,#02,#4c
	db #90,#02,#47,#90,#0c,#45,#90,#02
	db #47,#90,#02,#4e,#90,#0e,#4a,#90
	db #02,#4c,#90,#0a,#4a,#90,#02,#4c
	db #90,#02,#4e,#90,#02,#ff
;
.game_name
	db "Mystery Megademo Intro",0
.game_year
	db "",0
.game_publisher
	db "",0
.music_author
	db "Greg",0
.music_comment
	db "ST-128 Module",0

	read "music_end_v1_0.asm"
